﻿Imports System
Imports System.Reflection

Namespace System.Workflow.Activities.Rules
    Friend Class SimpleParameterInfo
        Inherits ParameterInfo
        ' Methods
        Public Sub New(ByVal parameter As ParameterInfo)
            Me.parameterType = GetType(Nullable([Of] )).MakeGenericType(New Type() { parameter.ParameterType })
        End Sub

        Public Sub New(ByVal parameter As Type)
            Me.parameterType = parameter
        End Sub


        ' Properties
        Public Overrides ReadOnly Property ParameterType As Type
            Get
                Return Me.parameterType
            End Get
        End Property


        ' Fields
        Private parameterType As Type
    End Class
End Namespace

